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I7A23 --- FRU ISOLATION MAP P/N=8327662 EC=375222 PAGE 01 T7A23 -=- FRU ISOLATION MAP P/N=8327662 EC=375222 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A23 ** MAP EC HISTORY ** 002500 33A4 198 A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
TOP Se LoS SSS S SPSL SS SCSSS ES SL SS SPSS SSS SS LCL SSS SSCS SSCS LSC CCS SC SL STS SS CCL SL et 2 TOG MH eRe ee ee a ie i KS OR 2 eR RK OR a i a oi teak kote aie a ak ocak 
5 x* x 200 283 2k ROR OIG OK a i I IOI Ik tok ate lok ak ak kak kc ak 
6 * eK PREREQUISITES HK * 201 ** 2 
7 * x 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR D3C00) ** 
8 * NONE * 203 ** TO LOCATE THE CORRECT ROLE TO INVOKE, TO OBTAIN THE PROPER ** 
9 * * 204 ** PARAMETERS TO PASS TO THE TUtS AND TO PASS TO THE OPERATOR * % 
10 OK I OOO CCGG Cio tok ok aio iC doioic tokio dak log gak kok kok ak ke ok 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS * 
11 * x 206 ** PURPOSE THEY ARE: * 
12 * *& & MODIFICATIONS KK * 207 ** * x 
13 * *x 208 ** STEP AND RULE ADDRESS TABLE * x 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * x 
EMRE SESS SSS SSCS SSCS SSSSS SSC SOSS CS SSCS CSS SCS CS LS CSS CT CSL SC SS TS STS TCS TSC L SSS 21 211 ** ENTRIES ARE AS FOLLOWES * 
17 x * 212 ** A AN ADDRESS OF THE RULE DC START AREA * * 
18 * *% REA'*S INCORPORATED 4K * 213 ** B THE STEP NUMBER IN DECIMAL ** 
19 * * 214 ** Cc AN EQUATE FOR THE STEP NUMBER ** 
20 * NONE * 215 ** ** 
21 * * 216 ** RULE INFORMATION TABLE ** 
PR TST TTS TSS SLOSS SCSCSSS SSCS COSSCSCLCC CS CSS SSCS STS SS CCS SL SSC SS CS CSS TST SST Se TS ese 217 *«* THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE ok 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * 
24 * * & & SPECIAL INSTRUCTIONS KK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS ** 
25 * * 220 ** INDICATED WITH A X'OOOO! FOR THE RULE EQUATE. ** 
26 * NONE * 221 ** * 
27 * * 222 ** SQUES kK 
28 RO III IO IO IG ICG OI iolgi kok i ii ak dak ok kik dak ak tok ak 223 ** A) RULE EQUATE X'0100! * x 
29 * * 224 ** 5 ADDRESS OF THE YES LEG RULE ** 
30 *  & E. C. HISTORY CK * 225 ** ** 
31 * * 226 ** SFIXT * x 
32 * DATE 17AUG78 DATE O20CT78 DATE 10JAN79 DATE *x 227 ** A) RULE EQUATE X*'0101! ** 
ai : E.C. 755391 E.C. 375102 E.C. 375222 Bac . S56 nied B) ADDRESS OF MESSAGE TO PRINT ps 
CLM SSS SSS SSS SCSOSSSC SC CCS SCC SS SO SSSCCCCCCOSCOCS SS CSS SSCS SCS SCS SSCS CS SS Se St 2 Se 230 ** $STOP ec 
002500 37 I7A23 START X'2500! START ADDRESS OF ALL 'I! TYPE PROG 231 ** 5} RULE EQUATE X'0102! ** 
000100 38 @QUES EQU X'0O100! EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE a 
000101 39 OFIXT EQU X'0O101' EQUATED VALUE FOR MDI STATEMENT 233 ** * x 
000102 40 @STOP EQU X'0102' EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO * x 
000200 41 @GOTO EQU X*0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X*0200° * 
000201 42 @CALL EQU X'0201' EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * 
000300 43 @INPT EQU X'0300' EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO * 
000400 44 @QUXX EQU X'O4OO! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE ek 
000500 45 atTuxx EQU x'0500'! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000600 46 @NVLD EQU X'Q600! EQUATED VALUE FOR MDI STATEMENT 241 ** * & 
000000 47 EQ EQU X*OO000! EQUATE FOR EQUAL 242 ** SCALL * 
000004 48 NE EQU X'OOO4! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE x't0201'! % & 
000008 49 HI EQU X'O0008'! EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE 1 
00000C 50 NH EQU X'OOOC! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL * 
000010 51 LO EQU X*'OO10! EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X'O0O148 EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000010 53 LT EQU X'0010! EQUATE FOR LESS THAN 248 ** ** 
00000C 54 LE EQU X'OQOOC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT * & 
000008 55 GT EQU x'QOoO08' EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300! ** 
000014 56 GE EQU X'OOT4! EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE (EBCDIC OR HEX) * * 
000200 57 ON EQU X'Q200' EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE * 
000202 58 OF EQU X'0202' EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * 
000204 59 MX EQU X'*O0204' EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA *k 
000000 60 EBC EQU X*O0O00! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA ** 
000001 61 HEX EQU X'O0O0O1' EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA * 
000001 62 XTRNL EQU X'O00T' EQUATE FOR EXTERNAL REFERENCE 257 ** *x 
000000 63 INTRNL EQU X'Q000! EQUATE FOR INTERNAL REFERENCE 258 ** S$QUXX * 
000000 64 PARM ay X'O000! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X'O4&OO? * & 
000001 65 DA EQU X'O001' EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ** 
000002 66 UA EQU X'0002'! EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS abe * 
000000 67 DUMMY EQU x'o0o0o0d! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS SECONDARY) ** 
001800 69 PID EQU *-X'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * x 
000232 70 PTYPE EQU *=-X"22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * & 
00180C 71 STEPNOM EQU PID#X'O0O0C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
00180E 72 OPWD1 EQU PID+X*tOOOE! ADDRESS OF OPTION WORD ONE 266 ** ** 
001810 73 OPWD2 EQU PID+x'0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX ** 
001818 74 TUSTATUS EQU PID+xX'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X*'0500§! * 
OO181A 75 TUWORK EQU PID+X'OO1A! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * 
00189A 76 TUPARH1 EQU PID+X'OO9A* ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS ** 
00189C 77 TUPARM2 EQU PID+xX'OO9C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS ** 
00189E 78 TUPARM3 EQU PID+X'QOQ9E* ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS ** 
0018A0 79 TUPARM4Y EQU PID+X'OOAO!® ADDRESS OF PARM 4& POINTER 273 ** F) MASK FIELD FOR COMPARE * x 
0018A2 80 TUPARM5 EQU PID+X'OOA2!* ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES ** 
OOT8AY4 81 TUPARM6 EQU PID+X'OOAG! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7 EQU PID+X'OOA6'* ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * x 
0018A8 83 TUPARM8 EQU PID+X'00A8" ADDRESS OF PARM 8 POINTER 277 ** ok 
OO18AA 84 TUPARMS EQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 278 ** SNVLD ** 
OO018AC 85 TUPARM10 EQU PID+X'OOAC'! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600! * x 
OO18AE 86 TUPARM11 EQU PID+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** * 
0018B0 87 TUPARM12 EQU PID+xX'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * * 
0018B2 88 TUPARM13 EQU PID+X'OOB2'! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT ** 
0018B4 89 TUPARM14 EQU PID+X'OOB4! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ** 
0018B8 91 TUPARM16 EQU PID+X'OOBS8! ADDRESS OF PARM 16 POINTER 286 ** * * 
OO18BA 92 TUMSGWTR EQU PID+X'OOBA! ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT * x 
O018BE 93 TUUA EQU PID+X*OOBE!* ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE * x 
0018C0 94 TUDA EQU PID+xX'OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** ** 
0018C2 95 TUBUFF EQU PID+xX'O0C2' ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xX'0000! * 
0018C4 96 TULAST EQU PID+X'OQOC4! ADDRESS OF LAST ADDRESSABLE WORD 291 ** ** 
0018C6 97 TURESOLN EQU PID+x'00C6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE a 
0018C8 98 TURESUL EQU PID+X'OOC8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
O0Q018FC 99 MAPNAME' EQU PID+X'OOFC® ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: ** 
001948 100 TUINPT EQU PID+xX'0148' ADDRESS OF $INPT DATA 295 ** * x 
00196E 101 PARMARA EQU PID+X'O16E! ADDRESS OF SINPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK ** 
0019B8 102 @DCADD1 ay PID+X'O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE * & 
OO19BA 103 @DCADD2 EQU PID+X'O1BA'S MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE ** 
0019C4 104 SUPSTAT EQU PID+X'O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * 
0019D0 105 DEVADD EQU PID+X'O1DO! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE ** 
O0O019DA 106 DEVADD1 EQU PID+X'O1DA'* ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE * * 
QOO19E4 107 DEVADD2 EQU PID+X'O1EU! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G)' ETC. ** 
OO19EE 108 DEVADD3 EQU PIDtX'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** * x 
0019F8 109 DEVADD&S EOU PID+X'O1F8!? ADDRESS OF DEVICE ADDRESS TABLE 4 JOM KK KK RIO OKO ilo lok taki ito kok kok i kaiokak fakkokkkoakka toa 
001A02 110 DEVADDS EOU PID#+X'Q202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 IO KIKI OO io lok rok tok fofoiggok fiogkokogok ak tokokokokoiogok ak tokio 
OO01A0C 111 DEVADD6 EQU PID+X'0Q20C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 ee DEVADD?7 : Ud payee oa ke ADDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003498 0008 2588 DC A (0008) 003516 4020 34cC 7A02 2705+T7A02 MV WI X° 7402", STUID SET UP TEST UNIT ID 
00349A DUCIDIFICIFTF6C8 2589 DC CLOOOS8*MAPT7AT76H! 00351C 5700 2706+ BE AR 7 RETURN TO MDI SUPVR 
0034A2 2590 FO0090 EQU * 2708 OPY TAOODCB 
0034A2 0001 2591 Dc AL2 (0001) 2709 ** (1700 DCB) 

OO34A4 0008 2592 DC A (0 08) 2710 * 
0034 A6 DUCIDIF7ICIF7F6D4 2593 Dc CLOOO8 MAPTAT6M!® 2711 7 He He He Ee a eH He He 2 He OE 2 A A EE A AC ee a a KACEY 2 BOT 7 6 RK RK 
OO34AR 2594 F00083 EQU * 2712 * 
OO34AE 0001 2595 DC AL2 (0001) 2713 * DCB TABLES AND DC'S 
0034B0 0008 2596 DC A (0008) 2714 * 
0034B2 DUCIDIFICIF7F2E8 2597 pc CLOOO8"* MAP7AT72Y! IMME TEL SSS TSS SS SESS SL SS SSL TS SSS SSS SSS LSC SSC SCS SSC SSL CSCS SS STS STS PPTs ee et eT 
OO34BA 2598 F00077 EQU x 2716 * 
OO34BA 0001 2599 pc AL2 (0001) 2717 ***** DIAGNOSTIC DCB HRI I 
0034BC 0008 2600 DC A (0008) 2718 * 
OO0O34BE D4CIDTF7C1IF2F4C8 2601 DC CLOOO8*MAPTA24H! 00351E 2008 2719 DGDCB DC 2008" DIAGNOSTIC DCB 
2602 PDIT 00 003520 0000 2720 DC A FLAG / PHYSICAL pectons 
0034c6 0000 2604+OPTN1 DC X'O000! PROGRAM OPTION CONTROL WORD 1 003522 0000 2721 DC A HEAD / CYLINDER#! 
2605+* 003524 0000 2722 pc xt 000 NOT USED 
0034C8 0000 26064+OPTN2 DC x*ooo0ot PROGRAM OPTION CONTROL WORD 2 003526 35F8 2723 DC A xoBA) RSB ADDRESS 
2607+* BIT HEX 003528 0000 2724 DC A CHAINING ADDRESS 
000010 2608+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 00352A 0100 2725 DC 010 BYTE COUNT 
000011 2609+B49 Bou 47 1 4 ok 00352c 0000 2726 pc esa DATA ADDRESS 
000012 26 10+B50 EOU 18 2 2 * THESE BITS ARE USED WITH THE 2727 * 
000013 2611+B51 EQU 19 3 1 * SFCOND OPTION WD AND ARE TO 2728 ***** RECALIBRATE DCB ******%x% 
000014 2612+B52 EQU 20 7 8 * BE ASSIGNED BY EACH PROGRAMMER 2729 * 
000015 2613+B53 EQU 21 5 u * 00352E 0001 2730 CLDCB DC X'O0018 RECALIBRATE DCB 
000016 2614+B54 EOU 22 6 2 * 003530 00000000000000000 2731 DC 7A (*-*) 
000017 2615+B55 EQU 23 7 1 * 2732 * 
000018 26 164+B56 EOU 24 8 8 * 2733 ***** WRITE SECTOR ID *******% 
000019 2617+B57 EOU 25 9 4 * 2734 * 
OO001A 2618+B58 EQU 26 10 2 * 00353E 002D 2735 WSDCB DC x g02D" WRITE SECTOR ID CNTL WORD 
00001B 26 19+B59 EQU 27 11 1 *« 003540 0000 2736 DC A FLAG / PHYSICAL SECTOR# 
00001C 2620+B60 EQU 28 12 8 * 003542 0000 2137 DC A HEAD / CYLINDER#'S 
00001D 2621+B61 EOU 29 13 mt *« 003544 0000 2738 DC x? 000 NOT USED 
OOO00I1E 2622+B62 EOU 30 14 2 x 003546 35F8 2739 DC AEB RSB ADDRESS 
OO0001F 2623+B63 EOU 31 15 1 * 003548 0000 2740 DC CHAIN ADDRESS 
OOOO1E 2624+CH FOU 30 14 2 CHARACTER SUPPLIED OO0354A 0004 2741 DC X'000 BYTE COUNT 
OO0001F 2625+CMP EQU 31 15 1 COMPARE OPERATION 00354C 35EC 2742 DC A (WRSID) ADDR OF SECTOR ID DATA 
O0O034CA 0000 2627+OPTN3 DC X'00008 PROGRAM OPTION CONTROL WORD 3 2743 * 
2628+* 2744 ***** READ SECTOR ID DCR ¥******* 
2629+* QO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 2745 * 
2630+* 14 ERROR INTERRUPT R 9 CS AVAILABLE CSA O0OO0354E 201C 2746 RSDCB DC Sta READ SECTOR ID CNTL WORD 
2631+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE 003550 0000 2747 DC A (*¥= whe FLAG / PHYSICAL SECTOR# 
2632+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 003552 0000 2748 DC X*Q000! HEAD / CYLINDER#'S 
2633+ 003554 0000 2749 DC x¥*0000! NOT OSED 
2634+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 003556 35F8 2750 DC A roe)? RSB_ ADDRESS 
2635+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR IOCC 003558 0000 2751 DC A (*#-* CHAIN ADDRESS 
2636+* 6 WRONG INTR LEVEL $LE 14 NO INTERRUPT NOIN 00355A 0004 2752 DC X*000 BYTE COUNT FOR READ SECTOR ID 
263 7+* 7 NO INTR EXPECTED alt 15 INTERRUPT CC ERROR INCC 00355C 34D4 2133 P DC A (SCTID) SECTOR ID DATA ADDRESS 
+ 
000020 26394+MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 2755 ***** SEEK DCB **%#2% Oke 
000021 2640+ER EOU 33 1 U ERROR RECEIVED ON INTERRUPT 2756 * 
000022 26414XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 00355E 0000 2757 SKDCB DC x*00008 SEEK DCB CONTROL WORD 
000023 2642+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 003560 0000 2758 DC x*0000°8 NOT USED 
000024 2643+XE EQU 36 4 8 EXPECTED oe RESPONSE 003562 0000 2759 DC e eanh HEAD / CYLINDER#'S 
000025 2644+HE EQU 37 5 4 HARD EEFROR RETRIES 003564 0000 2760 DC x*oo0o0! NOT USED 
000026 2645+$LE EQU 38 6 2 INTERRUPT bx° WRONG LEVEL ERROR 003566 35F8 2761 DC A (eoey RSB_ ADDRESS 
000027 264U64NI EOU 39 7 1 NO INTERRUPT EXPECTED E 003568 0000 2762 DC A peal CHAIN ADDRESS 
000028 2647+CS EOU 40 8 8 CYCLE STATUS IN PROGRESS 00356A 0000 2763 DC x"oooor NOT USED 
000029 2648+CSA FOU 44 9 i CYCLE STEAL AVAILABLE 00356C 0000 2764 DC x*o0000! NOT USED 
00002A 26494CE EOU 4u2 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 2765 * 
00002B 2650+ISBON EQU 43 11 1 ISB BITS ON (1-7 2766 ***** CYCLE STEAL STATUS DCB *%***#% kx 
00002C 26514NG EQU ay 12 8 TEST UNIT RESULTS NO GOOD 2767 * 
00002D 2652+IOCC EQOU 4u5 13 4 OIO CC ERROR 00356E 2000 2768 CSDCB DC X¥'2000! CONTROL WORD 
00002E 2653+NOIN EQU 46 14 2 NO INTERRUPT 003570 0000 2769 DC FtQr NOT USED 
00002F 26544+INCC EQU 47 15 1 INTERRUPT CC ERROR 003572 0000 2770 DC F'or NOT USED 
2655+* 003574 0000 2771 DC F'or NOT USED 
2656+* COMMON BUFFER FOR PRINTING DATA 003576 0000 2772 DC F'or NOT USED 
2657+* 003578 0000 2773 DC Ftor NOT USED 
0034CC 0000 2659+$TUID DC A (*-* TEST UNIT IDENTIFICATION 00357A OO1A 2774 DC X'OO1A! 13 WORDS OF STATUS 
0034CE 0000 2660+$IOIN DC A (*~* I/O AND INTR CONDITION CODES 00357C 34EC 2775 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS )JATA 

0034D0 0000 2661+$ISB DC Rh (*-* R INTR STATUS BYTE & DEV ADRS 2776 * 
0034D2 0000 2662+LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES 2777 ***** WRITE DCB #2 KK 
0034D4 0000 2663+DEV1 DC A (*-* DEVICE DEPENDENT DATA 2778 * 
0034D6 0000 26644+DEV2 DC A (*-* 00357E 0028 2779 WRDCB DC Xx'0028! WRITE DATA DCB CNTL WORD 
0034D8 0000 2665+DEV3 DC A (*-* : 003580 0000 2780 DC A (*-* FLAG / RECORD# 

OO34DA 0000 2666+DEV4 DC A (*—%* CS STATUS ERROR ISB & INTR CC 003582 0000 2781 DC A (*-* HEAD / CYLIDNER# 

OO34D4 2667+SCTID EQU DEV1 READ ID BUFFER FOR IBIS §& TERN 003584 0000 2782 DC A (*-* SCAN REPEAT COUNT 

0034Dc 2668+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 003586 35F8 2783 DC A (RSBA) RSB_ ADDRESS 

0034DC 0000 2669+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 003588 0000 2784 DC A Aaah CHAIN ADDRESS 

0034DE 0000 2670+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 00358A 0100 2785 DC X¥*01008 BYTE COUNT 

0034EFO 0000 2671+DCB3 DC A (*-% LAST DCB TABLE, DEV DEP WORD 00358C 0000 2786 DC A (*-*) WRITE DATA ADDRESS 

0034E2 0000 2672+DCBY DC A (*-* LAST DCB TABLE, DEV DEP WORD 2787 * 

OO34E4 0000 2673+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 2788 ***** VERIFY DCB eK ek Ok 

0034E6 0000 2674+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 2789 * 

0034E8 0000 2675+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 00358E 0019 2790 VRDCB DC X¥'0019! CONTROL WORD 

OO34EA 0000 2676+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 003590 0000 2791 DC A (*-* FLAG / RECORD# 
2677+ 003592 0000 2792 DC A (*-* HEAD / CYLINDER#'S 

OO34EC 2678+CSBUF EQU * CYCLE STEAL DATA BUFFER 003594 0000 2793 DC A (*-* SCAN / REPEAT COUNT 

0034EC 0000 2679+CSTL1 DC A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 003596 35F8 2794 DC A (RSBA) RSB_ADDRESS 

OO34EE 0000 2680+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 003598 0000 2795 DC A (*-* CHAIN ADDRESS 

0034FO 0000 2681+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 00359A 0000 2796 DC A (*-* BYTE COUNT 
0034F2 0000 2682+CSTL4 DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 00359C 0000 2797 DC Fto! NOT USED 
0034F4 0000 2683+CSTL5 DC A (*—* CS STATUS WD 4, ERROR STATUS WD 1 2798 * 
0034F6 0000 2684+4+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 2799 ***** READ DCB sol CK 
0034F8 0000 2685+CSTL7T DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 2800 * 

OO34FA 0000 2686+CSTL8 DC A lk~* CS STATUS WD 7, PREVIOUS HD/CYL 00359E 2018 2801 RDDCB DC x*2018! PFEAD DCB CONTROL WORD 
0034FC 0000 2687+CSTLIO DC A (*-* CS STATUS WD 8, CURRENT HD/CYL 0035A0 0000 2802 DC A (*-* FLAG / RECORD# 
0034FE 0000 2688+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR 0035A2 0000 2803 DC A (*—-* HEAD / CYLINDER#'S 

003500 0000 26894+CST11 DC A (*-* cS STATUS WD 16, HEAD/CYLINDER 0035A4 0000 2804 DC A (*-* SCAN / REPEAT COUNT 
003502 0000 2690+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 0035A6 35F8 2805 DC A (RSBA) RSB_ ADDRESS 
003504 0000 2691+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP " BYtE 0035A8 0000 2806 DC A (*—* CHAIN ADDRESS 

2692+* 0035AA 0100 2807 DC x*010 BYTE COUNT 

003506 0000 2693+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 0035AC 0000 2808 DC A (¥*-*) READ DATA ADDRESS 
003508 00000000 2694+$DATA DC 2A (*-* OPTIONAL DATA 2809 * 
00350C 0021: 2695+$INTL DC X"0021! INTERRUPT LEVEL REQUESTED 2810 **** WRITE SECTOR ID SKEWED KKK 
00350EB 0000 2696+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 2811 * 

003510 00 2697+$DVID DC x"oor DEVICE ID OO35AE 0OO02F 2812 WKDCB DC x" O02F' CONTROL WORD 
003512 19D0 2698+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 0035B0 0000 2813 DC A FLAG / PHYSICAL SECTOR# 
003514 0000 2699+ DC A (*-*) IBIS CYLINDER ADDRESS 0035B2 0000 2814 DC A HEAD / CYLINDER#!S 

2700+* 0035B4 0000 2815 DC BO NOT USED 

2701+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 0035B6 35F8 2816 DC A BSBh) RSB_ADDRESS 

2702+%* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 0035B8 0000 2817 DC A CHAIN ADDRESS 

2703+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. QOO035BA 0004 2818 DC 000 BYTE COUNT 

2704+*% 0035BC 35EC 2819 DC A (WRSID) ADDR OF SECTOR ID DATA 
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* 


ipieas READ SECTOR ID SKEWED HE eK 
RKDCB DC X*201D! CONTROL WORD 
DC A (*-* FLAG / PHYSICAL SECTOR# 
DC A (*-* HEAD / CYLINDER#'S 
DC Ftgor NOT USED 
DC A rs)” RSB ADDRESS 
DC A (*-* CHAIN ADDRESS 
DC X'000 BYTE COUNT 
m DC A (SCT ID) SECTOR ID DATA ADDRESS 
pigial READ MULTIPLE SECTOR IDS AK HK A 
RMDCB DC x 20ics CONTROL WORD 
DC Abe FLAG / PHYSICAL SECTOR # 
DC A HEAD / CYLINDER#!#S 
DC tor. NOT USED 
DC A rs)” RSB ADDRESS 
DC CHAIN ADDRESS 
DC X*008 BYTE COUNT 
¥ DC A(IDOO) DATA AREA ADDRESS 
* CONSTANTS AND DEFINED STORAGE LOCATIONS 
ZEROO DC X'O0000! CONSTANT ZERO 
ONE1 DC X'O0001' CONSTANT ONE 
y: DC i fened WRITE PARAMETER POINTER 
WDATA DC X"EB6D! WRITE DATA 
DC X*6BDB! * 
LGSEC DC X*QO00! LOGICAL SECTOR # 
PHYSC DC X'O0000! CONVERTED PHYSICAL SEC # 
WRSID DC X'*QO000! FLAG,SECTOR (WRT SECTOR ID DATA) 
DC X'oOOOo! HEAD *CYLINDER 
WSIDT DC X'FF3G! WRITE SECTOR ID TEST DATA 
DC X'5678! 
SCTST DC X'Q000! READ SECTOR ID TEST DATA BUFFER 
DC X'OO000! 
RSBA_ DC St ara RESIDUAL STATUS BLOCK 
CTRO2 DC X'QQ0O! COUNTER 
CTRO3 DC X'O00Q008 COUNTER 
IDO0O0 DC X'Q000* ID ADDRESS TO BE SET BY USER 
PDATA DC X'1010' WRITE DIAG WORD 1 DATA PATTERNS 
DC X'5555!8 * 
DC X'AAAA® * 
e DC X'FFFF & * 
MEK A ee Ae He A OE A 2 KK LY 7 7 EE A eH RR HE a IK 
* 
: SUBROUTINE 
: PURPOSE 
: COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
: CALLING SEQUENCE 
: BAL CMPRW,R6 (NORMAL) 
. RETURN 
: BXS (R6,2) = NORMAL 
* 


PS PPS PSS S SS SS LESS SS LSS St SSS PSS SSS SS SS SS TS SESS S LS SSS SL SSS SS SSS SS SSS SS 5 2 2.3 
* 


CMPRW MVWI COMPARE BYTE COUNT 
MVA seTiD, R3 ADDR OF RD SEC ID DATA 


ADDR OF WR ah ID DATA 


CFNEN R3) (B5) COMPARE ID DATA 
E 2) BCH IF WRITE ID DATA OK 
B COMPARE ERROR 
OK a a ek ok se ok Re ee et, a POET TOT eee 


EXECUTE INPUT & OUTPUT COMMANDS 

TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 

EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
Sneue CLE SPECIAL SWITCHES BEFORE BRANCHING TO THE 


THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 


1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
2. ERROR INTERRUPTS RECEIVED FROM SUPVR 


THIS ROUTINE HAS THE FOLLOWING ENTRIES: 


1 BAL  $RKEW,R6 READ SECTOR ID SKEWED 
2 BAL  $WKEW,R6 WRITE SECTOR ID SKEWED 
3 BAL  $WSEC,R6 WRITE SECTOR ID 

4 BAL $DIAG,R6 DIAGNOSTIC 

5 BAL  XIOCS,R6 CYCLE STEAL STATUS 

6 BAL S$SEEK,R6 SEEK 

7 BAL  $RECL,R6 RECALIBRATE 

8 BAL  $RDID,R6 READ SECTOR ID 

9 BAL  $RD,R6 READ 

10 BAL $RDVY,R6 READ VERIFY 

11 BAL $WRT,R6E WRITE 


HRHHEHEHEHEHHEHHHEHHHHHHHEHRHHHKHHHHEKRHHKEHH HE 


12 BAL SRDIM, R6 READ MULTI SECTOR IDS 
OIG IIR IO IOC IGRI IOI OR IORI GIO a kk IIR RR ki aR kak lak kote ak ik ak ac 
* 


SSEEK ee oS i hare SET UP CONTROL BLOCK FOR SVC CALL 
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S$RECL a 


K 
SRDID MVA 
MVBI 


CLDCB,IODCB 
XIO 


RSDCB, IODCB 
X"BB! 7R3 
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COPYRIGHT IBM CORP 1976 
SET UP BLOCK FOR SVC CALL 


SET UP BLOCK FOR SVC CALL 
SET BUFFER TO B'S 


HVA SCTID,RS5 SETUP READ SECTOR ID BUFFER ADRS 
MVWI 4 RT SETUP BUFFER LENGTH 
FFN R3 (B5) INIT READ SECTOR ID BUFFER 
MVA  SCTID,RSDCB+14 DATA ADDR 
, J XIO 
$RDIM MVA  RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MVWI 132-R7 SET BUFFER LENGTH 
MVA 1D06;R5 SET BUFFER ADDRESS 
MVBI X'BBS,R3 SET CLEAR CHARACTERS 
FFN 3, (R5) CLEAR THE BUFFER 
: J 16 
$RD MVBI X'FF!,R3 SETRD BUFFER TO ALL F'S 
MVW  RDDCB+14,R5 SET UP READ BUFFER ADRS 
MVW RDDCB+ 12, R7 SET UP BUFFER LENGTH 
FFN AB 5) CLEAR READ BUFFER 
$RDS NVA RDS B, LODCB SET UP BLOCK FOR SVC CALL 
* 
SRDVY uA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
* 
$WRT NVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
* 
$RKEW MVA - RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MVBI X'BB',R3 SET BUFFER TO B'S 
MVA  SCTID,RS5 SETUP READ SECTOR ID BUFFER ADRS 
MVWI 4, RT SETUP BUFFER LENGTH 
FFN R3 (R5) INIT READ SECTOR ID BUFFER 
MVA sc&tp,RKDCB+14 DATA ADDR 
: J XIO 
$WKEW MVA  WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MVA  WRSID,WKDCB+14 DATA ADDR 
. J XIO 
$HWSEC MVA  WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MVA WRSID,WSDCB+14 DATA ADDR 
: J XIO 
$DIAG NVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
* 
$WRTO MVW  R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
MVBI 255,R3 CLEAR CYCLE STATUS BUFFER 
MVA  CSBOF,RS * TO ALL ONES * 
MVBI 22,R7 x 
FFN R3 (R5) 2x 
MVA  DCBUF,RS5 CLEAR DCB BUFFER TO ALL ONES 
MVBI 16,R7 * 
FFN R3 4R5) * 
MVWI x'67087,$I0IN OVERLAY OLD CONDITION CODES 
MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
TBTR (R4G,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
TBTR (R4SER RESET ANY ERROR BEFORE 1/0 COMMAND 
TBTS (RU) XT SET EXPECTED INTR CONTROL BIT 
MVA OBLK, R7 SET UP CONTROL BLK FOR SUPR 
MVB IOMOD+1,R0 GET IDCB FUNC/MODIFIER 
RBTWI X'OOFO',IOMOD REMOVE FUNCTION FROM 'IOMOD' 
SRL 4,R0 RIGHT JUSTIFY FUNCTION BITS IN RO 
CBI 5-RO IDCB FUNCTION = 5? 
JE SHRT1 YES - ISSUE 'SVC WRITI1! 
SVC WRITO ISSUE WRITE DPC '4x* OP 
B XIO8—-4 GQ_WAIT FOR THE INTERRUPT 
$WRT1 SVC WRIT1 ISSUE WRITE DPC '5X* OP 
. B XTO8-4 GO WAIT FOR THE INTERRUPT 
$DGWR MVA  WRDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 
: B XIODG ISSUE START CS DIAG CMD 
$DGRD MVA  RDDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 
MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 
MVW RDDCB+14, R5 ADDR OF READ BUFFER 
MVBI Xx! CLEAR TO FtS 
FN R3 5cES) * 
B ISSUE START CS DIAG CMD 
COPY CORE OU 
pS SS SP SFP SSS SS SSS SS SSS SSS SLES SS SPE SSS SSS SSS SSSSS SS SSS SSS SS sees e eS eS ISLS et ss 
* * 
EQUATED NAMES FOR SUPPORTED SVC!S * 
-f St SS SSS SLT SSS SSS SSL SS SESS SSS SSLSES SS SSL SSS SSS SS SS TCL SS SSS Stes SSS SPS ses ss 
OUT EOQU O OUT sVC 
OUTIN EQU 1 OUTIN SVC 
IDLE FOU 2 IDLE SVC 
IDLES EOU) 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
CHNGE FOU 4 CHANGE LEVEL SVC 
PGMCK EOU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
EXIT EOU 6 EXIT SVC 
TERM EQU 7 TERMINATE SVC 
RESET FOU 8 RESET DEVICE svc 
RID EQU 9 READ ID SVC 
START FOU 10 START CYCLE STEAL SVC 
STCSS EOU- 11 START CYCLE STEAL STATUS SVC 
PREP EOQU 12 PREPARE DEVICE SVC 
READO EOU 13 READ WITH FUNCTION BIT 3 OFF SVC 
READ1 FOU 14 READ WITH FUNCTION BIT 3 ON SVC 
RSTAT EQU 15 READ STATUS SVC 
WRITO FOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
CTRL £QU 18 CONTROL SVC 
RICB EOQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
CICB EOU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
HIO EQU- 21 HALT ALL 1/0 
REOSD EQU 22 REQUEST USE OF DCP DISK SVC 
RELSD EOU 23 RELEASE USE OF DCP DISK SVC 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000018 3050 HALT EQU- 24 HALT SVC 3732+* 
000019 3051 ETOH EQU 25 EBCDIC TO HEX SVC (STRIN 3733+* RETURN CONTROL 
OOOO1A 3052 HTOE EOU 26 HEX TO EBCDIC SVC (STRING 3734+% 
00001B 3053 ATOH EOU 27 ASCII TO HEX SVC TRING 3735+* BXS R6, 2) RETURN TO USER NO ERROR 
00001C 3054 HTOA EQU- 28 HEX TO ASCII SVC (STRING 3736+* OR B R6{ * RETORN AND RETRY ON ERROR 
00001D 3055 ETOA EOU 29 EBCDIC T0 ASCII SVC STRING QTV 37 eH Hee Me He Re He eK Me Me He he He he he ee ee a he Be he she he he he alee he he ae ee he he he ae he age he ae ae ate ae oe he ae coe ae he he Se ae ae ah he eae oe eae 
OOO01E 3056 ATOE EFE6uU 30 ASCII TO EBCDIC SVC (STRING 0O0372E CB25 3842 3739+XI0O NVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
00001F 3057 READI EQU 31 READ DATA SETS FOR MDI/UTIL 003732 500E 3740+ J XI0O1 CS I/0'S ARE NOT RETRIED 
000020 3058 WRITI EQU 32 WRITE DATA SETS FOR UTIL 37414+% 
3060 303 lak Ri tok i I ok i i iO I ai a Rk i gk Rok ak kak kG dake ake ake keke fe ae ake ake akc ake fe 003734 4020 3842 000D 3742+XIODG HVWI X'000D*,IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
306) : * 00373A 500A Saad J XIO1 GO TO CS OPS 
EQUATES USED BY TUtS AS CONSTANTS : + 
3063 * 00373C 4CAA 3745+ TBTR (R4,CE RESET CS STATUS INTER ERROR INDICAT. 
3064 EAHA EEE H CHIE EGE IH HIE EGE ERIE UGE TOSS TOOHOE TEGO aE ERE 00373E 4C68 3746+ BTS (R4,CS SET ‘CYCLE STEAL STATUS! IN PROGRESS 
00004E 3065 PLUS EOU. Crt PLUS CHAR 003740 4020 3840 356E 3747+XIOCS HVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
000060 3066 MINUS EOU Ct-t HINUS CHAR 003746 4020 3842 OO0O0F 3748+ MVHI X'O000ft,TOMOD SET CYCLE STEAL MODIFIER 
000000 3068 ZERO EQU 0 00374C 4C28 3749+ TBT sR CS) IS CS IN PROGRESS, ERROR CONDITION 
000001 3069 ONE EQU 1 00374R 1213 3750+ JON 102 * YES, BYPASS SAVING I/O ADRS 
000002 3070 THO EOU 2 003750 G6EOD 34D2 3751+#XIO1 MVH  R6,LSTIO SAVE fAR FOR RETRY IF REQUESTED 
000003 3071 THREE FOU 3 003754 4324 34DC 3752+ MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
000004 3072 FOUR EQU 4 003758 6D08 3840 3753+ MVW  IODCB,RS5 * AND THE FROM ADRS, ALONG WITH 
000005 3073 FIVE EOQU. 5 00375C OFA 3754+ MVBI 26,R * THE NUMBER OF MOVES 
000006 3074 Stx  EOU 6 00375EB 2D64 3755+ HVFN SE) §R3) MOVE 1 STATUS WORD AND ADJUST 
000007 3075 SEVEN FOU 7 003760 OBFF 3756+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 
000008 3076 EIGHT EOU. 8 003762 4524 34EC 3757+ HVA CSBOF,RS5 * TO ALL ONES * 
000009 3077 NINE EQU 9 003766 OFI1A 3758+ MVBI 26,R7 * 
OOOOOA 3078 TEN EOU 10 003768 2BAC 3759+ FFN R3 4R>) * 
00000B 3079 ELEVN EOU 11 11 00376A 4020 34CE 0708 3760+ MVWI xX'6708',$IOIN OVERLAY OLD CONDITION CODES 
00000C 3080 TWELV EOU 12 12 003770 CB25 34D0 3761+ MVHZ SISB,R3 ZERO OUT OLD ISB VAL 
00000D 3081 THRTN EQU 13 13 3/62+* 
OO000F 3082 FIVTN EOU 15 15 003774 4CA1 3763+ TBTR R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 
000010 3083 SIXTN FOU 16 16 003776 4CA3 3764+XIO2 TBTR (R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
000020 3084 THRY2 U 32 32 003778 4724 383C 3765+ HVA OBLK,R7 SET UP CONTROL BLOCK FOR SUPVR 
000040 3085 SIXTY EOU 64 64 00377C 4CA6 3766+ TBIR RG, $LE) RESET LEVEL ERROR INDICATOR 
000080 3086 ONE28 EOU 128 128 O0O0377E 4C62 3767+ TBTS R4,XI SET EXPECTED INTR CONTROL BIT 
000100 3087 TWO56 EQU 256 256 003780 600A 3768+ SVC TART CALL SUPVR FOR I/O COMMAND 
000400 3088 ONEK EQU 1024 1024 3769+* 
000800 3089 TWOK EOQU 2048 2048 003782 4CAT 3770+ TBTR (Re! 7 NI) IS AN INTR EXPECTED 
000c00 3090 THREK EOU 3072 3072 003784 6ACO 0002 3771+ BN R6, 2) * NO, RETURN TO USER 
001000 3091 FOURK EQU 4096 4096 3772+% 
FFFFFF 3093 M1 FOU -1 -1 3773+% THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
FFFFFE 3094 M2 EOU -2 -2 3TT4+% 
FFFFFD 3095 M3 ROU -3 ~3 003788 4524 0000 3775+ MVHYI O,R5 SET UP WORK REG FOR ‘LOST INTR! 
FFFFFC 3096 Mu E -4 -4 00378C 4CA3 3776+XI08 TBTR (RY, IN) HAS INTERRUPT BEEN RECEIVED 
3098 kK ila lok ok kok ick ok i goo iO ak soi kok dak ok ick tea dog kg oki ae te ok ak acai ak 00378E 1239 3777+ JON IOCK * YES, CHECK IF ALL WAS SATISFACTORY 
3099 x + 003790 6002 3778+ SVC IDLE ALLOW ANOTHER PROGRAN A CHANCE TO RUN 
3100 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE x 3719+% SUPVR WILL RETURN HERE 
3101 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 003792 6002 aye te svc «IDLE Gg ee 
x 
3103 3 GO I IIC RI I I a II I a ra I I I I Ig kak lak te ak kak fete ake ate ake ake ak ake a 003794 7DA1 0001 3782+ AWI 1,R5 ADVANCE TIME OUT COUNT 
000000 3104 BSO  EoU 0 003798 18F9 3783+ JNZ  xto8 BCH IF TIME OUT NOT REACHED 
000001 3105 BS1 EOU 1 00379A 4C61 3784+ TBTS (RSE ER) SET ON ERROR CONTROL BIT 
000002 3106 BS2 EOU 2 00379C 68D2 0000 3785+ R "NO INTERRUPT! 
000003 3107 BS3 EQU 3 CELE arr Seeeoye 1) borane errr eeteree 1 Let 2) eee eee 
000004 3108 BSG EQU 4 3788+ * 
000005 3109 BSS EQU) 5 3789+* SUBROUTINE 
000006 3110 BS6 EQU 6 3790+* 
000007 3111 BS? EQU 7 3791+% I/O EXECUTE ERROR HANDLING ROUTINE 
000008 3112 BS8 EQU- 8 3792+% 
000009 3113 BS9 EQU 9 3793+* PURPOSE 
OOOOOA 3114 BS10 EQU 10 3794+% 
00000B 3115 BS11 EOQU 11 3795+ THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
00000C 3116 BS12 EOU 12 3796+% PROBLEM THAT WAS FOUND WHEN I/O COMMAND WAS ISSUED BY THE 
00000D 3117 BS13 EQU 13 379 7+* SUPERVISOR AND IT WAS NOT ACOEBTED 
OO000R 3118 BS14 FOU 14 3798+* 
OO000F 3119 BS15 EQU 15 3799+* CALLING SEQUENCE 
3121 COPY T7AXEQ 16MAR78 3800+* 
3122 WPRINE OFF 380148 SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 
XE 
3687 HERERO R HEE OCR OE OC SCH UCE CEE SEE EE IIH 29 JUL OFF Soot RETURN CONTROL 
+ 
3089+% SUB-ROUTINE 320573 B (R6) * RETURN TO USERS ERROR HANDLER 
+ 
3691+* EXECUTE INPUT AND OUTPUT COMMANDS SEO ne ONO ee mr ee Ree ST Ge Caer Een Gee nee eae eee Tee 
3692+ + 
3693+* PURPOSE 3809+* CC O= DEVICE NOT ATTACHED 
' 3694+ 3810+* FOR = DEVICE BUSY 
3695+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 3811+* I/0 = DEVICE BUSY AFTER RESET 
3696+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 3812+* = COMMAND REJECT 
30oge% 1 381a4% B= INTERFACE: DaTR OREeEe 
+ - SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT START = 
3699+* THE I/O COMMAND. ee 3815+* 6= CONTROLLER BUSY 
3700+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 3816+* 7= I/O COMMAND EXCEPTED 
3701+% ISSUED BY THIS SUBROUTINE. 3817+* 
3702+% 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 0037A0 TO6E 3818+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
| 3703+ START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 0OO037A2 336A 3819+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
U7Rete Mo BEGETS UE THDEEH URE EDICLION AND CHECKS, FOR ABE, TETPERUPD aes eat gage: NE na, $tors See ae 
+ @e 
3706+* MYSTERY INTERRUB? (HZ) CONTROL ae re | eee 22 FOUND, ECL Tere eT eT eres: PEN ERED ESLER EA a EERE Rte as eee ee ee eee nny eas 
3707+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7 SET THE 3824+* IL 
3708+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SVC START®. 3825+* SUB-ROUTINE IL 
3709+% 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE 1/0 COMMAND. TIMING 3826+* IL 
3710+* STARTS TO DETERMINE A LOST INTERRUPT. 3827+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *S$INTL* IL 
3711+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 3828+* IL 
3712+% WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 3829+* PURPOSE IL 
3713+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 3830+* IL 
3714+ 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 3831+* THIS ROUTINE WILL BE ENTERED WHEN aaG SUPVR DETECTS AN ERROR IL 
3715+ 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 3832+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
3716+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 3833+* EXPECTED CODE. IL 
3717+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 3834+% IL 
3718+* ISSUED BY THIS SUBROUTINE. 3835+* CALLING SEQUENCE IL 
3719+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 3836+* IL 
3720+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 3837]+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
3721+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 38384* IL 
3732+% 3839+* RETURN CONTROL IL 
3723+* CALLING SEQUENCE 3840+* IL 
3724+ oes 3841+% SVC EXIT RETURN TO USER VIA SUPVR IL 
+ U $ 
3726+* I ROUTINE HAS THE FOLLOWING ENTRIES Sohn re ee pene en eee Sa mee ee ene Tere Cet ene rere yee oew 
3727+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 =. IL 
3728+* --> BAL XtI01 MOD PARM PRELOADED IN 'ToMmobt 3845+* CC O= CONTROLLER END ISB O= ADD STATUS IL 
3729+* --> BAL XIOCS, R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 3846+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
3730+* --> BAL  XIOCS-4,R6 AUTO CS STATUS (FOLLOW ING OTHER XIO 3847+* INTR = EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
3731+ Z AND DOES NOT POST INTERRUPT STATUS) 3848+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 
3849+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 3966+* SUBROUTINE 
3850+% 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 3967+* 
3851+* g= ATTENTION 7 EXCEPTION INTR 6= PROTRCT CK IL eee CONNECT INTERRUPT CONTPOL BLOCK & PREPARE DEVICE 
+ = ENTION / DEVICE END INTR T= I- 7 
seni. Ate seeait : oe) OF gaitex ponrose 
4+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 L . 
OO37AE 336A 3855+ SRL 13,-R3 POSITION INDICATORS IN R3 T 3972+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003780 4424 34c6 3856+ MVA  OPfN1. RG SET UP BASE ADRS IL 3973+% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
0037B4 4¢C28 3857+ TBT (Ra c§) IS CS IN PROGRESS IL 3974+* TO INTERRUPT. 
OOS7BS 4CER 3889+ eh ae TORE 7 397¢1* CALLING SEQUENCE 
+ TBTS (R4,CE TURN ON CYCLE STEAL INTER ERROR IL 
0037BA 6FOD 34DA 3860+ MVW eed SAVE CS ERR ISB VALUE, BITS 0-7 IL 3977+* 
0037BE C328 34DB 3861+ MVB R3,DEVG+1 * AND THE COND CODE IL Jo78t% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
+ J INTR TL 
0037C4 4c24 3863+INTES TBT RY, XE TEST EXPECTED ATTEN / ERROR IND IL 3980+* --> BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
0037C6 1002 3865+ JOFF {Ree ) BCH IF NOT EXPECTED / Ir 3981+* --> BAL $CONP,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
0037C8 F304 3865+ CBI 4,R3 IS THIS AN "ATTENTION' INTR IL 3982+% 
SBRicR $206 seeetowrer dies He i ale ol ce ones eres. igegee METORN ConnzoL 
+ SET ERROR ON I/O COMMAND CNTL BI 
0037CE 5004 3868+ 5 fire hi none ar 3985+% BXS (RG. 2) RETURN TO USER VIA REG 6 IF OKAY 
3869+* THE ERROR INTERRUPT USES THE SAME IL 3986+* OR B R6{ * IF THE DEVICE COULD NOT BE CONNECTED 
3870+ ENDING SEQUENCE AS THE NORMAL INTR IL 3987+* 
387 2 OR GC IGG I IG GR ik ik kik ok tok tok doko 7 A PR76IL 398 842 OO OO I OR OO OR ORR IOI aR IK I iota ik 
3873+* IL 003850 OF06 3989+$CONC MVBI 6,R] NUMBER OF BYTE TO CLEAR 
3874+* SOUBROUTINE IL 003852 0BO00 3990+ MVBI * AND THE DATA TO USE 
3875+% IL 003854 4524 34D4 3991+ HVA Devt 1 BS * ALONG WITH THE ADRS TO USE 
+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL ¢ ' 
3877+% Boe Pen a 003854 CB25 34CA 3993+ NVWZ OPENS RS CLEAR OLD CONTROLS FOR NEW ROUTINE 
3878+* PURPOSE IL 00385E 4724 3848 3994+ MVA TNTBL. RY SET R7 TO CONTROL BLOCK AND 
3879+* IL 003862 6014 3995+ SVC CICB * CONNECT IT TO THIS DEVICE 
3880+ * TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 003864 6ADO 0000 Eee BN (R6) * ERROR RETURN TO USER 
+ 
3882+* CALLING SEQUENCE aT 003868 8828 350C 3840 39984+$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
3883+* IL 00386E 4724 383c 3999+ MVA TOBLK R7 SET R7 TO CONTROL BLOCK TO PREPARE 
3884+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED TL 003872 4020 34CE 0708 4OOO+ MVWI '0708" »STOIN INITIALIZE CONDITION CODE STORAGE 
388544 THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 003878 CB25 34D0 4OO 1+ MVWZ SISB R3 * AND CLEAR OLD ISB VALUE 
3886+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 00387C 6E0D 34D2 4OO2+ MVW R6 LSTTO SET UP ADDRESS THAT STARTED LAST I/0 
3887+* COMMON SECTION IS HANDLED HERE. IL 003880 600C 4003+ SVC. PREP * AND CALL ON SUPVR 
3888+* IL 003882 5601 4OO4+ BXS (R6,2) RETURN TO USER 
3889+* RETURN CONTROL IL POOGs CORtTSSE POSTS TT APSR SOAS ST TRS US INNA SETAE ER SEVELENS FOE eSeN Sea ESIGN PRTC SS 
3890+* IL ae 
ae SVC EXIT RETURN TO USER VIA SUPVR IL Ropes SUBROUTINE 
+ 
sesaate Seue EEE cae abett-+aeieeieleiiienmeb eat tet rare rarert tarsus rede DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
D E +INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 TL 4 
0037D2 336A 3895+ SRL  13,R3 POSITION INDICATORS IN R3 LI 4012+* PURPOSE 
0037D4 4424 34c6 3896+ VA OPfN1,R4 SET UP BASE ADRS IL 40 13+% 
0037D8 4Cé3 38974INTR1 TBTS (R4,IN SET INTERRUPT RECEIVED IL 4O14+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO37DA 4C28 3898+ TBT RY.CS IS ‘CS IN PROGRESS! ON TT 40154* SET THE *NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
0037DC 1204 3899+ JON NTR2 * YES. BCH AROUND UPDATE IL 4016+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
OO37DE C328 34CF 3900+ MVB R3,$IOIN+1 SAVE £NTERRUPTING CC CODE IL 4017 +* 
0037E2 6FOD 34D0 3901+ MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS TL 4018+* CALLING SEQUENCE 
0037286 3902+INTR2 EQU) * TL 4019+% 
3903+* PCL R5 CURRENT LEVEL COPIED BY DCP IL 4O020+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
0037E6 3521 3904+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 4O21+* 
0037E8 0501 3905+ ABI 15 * IN 'I' BIT IL 4022+* --> B SERRS SET 'NG' BIT AND CONVERT DATA TO LOG 
OO37EA CD24 350C 3906+ CW $INTL, RS IS THIS THE CORRECT INTR LEVEL IL 4O23+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
OO037EE 1002 3907+ JE INTR3 * YES, GO EXIT THIS LEVEL sian 4O244* 
0037FO0 4C66 3908+ TBTS (R4,$LE) SET INTR LEVEL ERROR CONTROL BIT IL 4025+* RETURN CONTROL 
O037F2 4Cé61 3909+ TBTS (R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 4026+* 
O037F4 4CA2 3910+INTR3 TBTR (R4,XI WAS INTERRUPT EXPECTED IL 4O2T+* B TURTN* RETURN TO MDI 
0037F6 1204 3911+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 4O028+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
0037F8 4C60 3912+ TBTS gra MI) * NO, SET MYSTERY INTR CONTROL BIT IL 4O29+* 
OO37FA F304 3913+ CBI R3 ATTENTION INTERRUPT? IL EQ SO HH A eK He He He He He He HE He HK he He he ME He He HK He 2 3c Hea eK he he a eK OK he 2 3 ae he 2c 2 oc 2 i 2 2 2 ac 2 he aie 2c i 2 2K 2 2 2c ok a ok 
0037FC 1001 39144 JE ThtRX YES TL 003884 4020 1818 8000 4HO31+S$ERR$ MVWI xX*8000',TUSTATUS SET ON 'NO GOOD! STATUS BIT 
O0O037FE 4&cCé6C 3915+ TBTS R4,NG) ERROR UNEXPECTED INTERRUPT IL O0O0388A 4724 3A54 4032+ MVA HEBLK, RT GET ADRS OF CONTROL BLOCK 
003800 6006 3916+INTRX SVC XIT THIS LEVEL VIA SUPVR TO PGM IL O00388E 601A 40 33+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
BG he FEEL EE EEE REI ES EE OEEURUEE ENN WERGRE SOA 45 GAG Cee cee eo bree 003890 4020 188E 4040 4O34+ MVWI X'4OUO!t, TUWORK+116 
eee g33822 4938 1839 HBN8 Saat UE EASUSt SMNORRT 3B 
+ THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT : . 
33335 RECETVED RUD BRANCHES HERE TO CH Finds MANY ERROR COuorToDue OO3RAG 4334 181A iosge NVA. TGWORK R3 SET UP BUFFER STORAGE 
E TO CHECK FOR ANY ERROR C . 
39334+% oS Se CheEee 0038A8 6B0D 3A4C 4039+ MVW R3,BUFPT 
sess eae ges 003880 Oro Hou ee 
+XIOCK TBTR (R4,XE WAS AN ERROR EXPECTED . ’ 
003804 6ACO 0002 3926+ BN Rely) * YES, EXLT THIS ROUTINE 0038B2 O08 4O42+ MVBI 8,R6 
003808 4CA8 3927+ TBTR (R4,CS) WAS AUTO CS IN PROGRESS OO38B4 2B24 GO43+MVBUF MVFN (83). (21) 
00380A 1006 3928+ JOFF XIOCV * NO, CONTINUE CHECKING 0038B6 OFO4 GO44t MVBI 4-R 
00380C 4C2A 3929+ TBT R4,CE) IS CS IN AN ERR CONDITION 0038B8 OA4O 4O4S+ MVBI X*40",R2 
00380E 1002 3930+ JOFF XIOCO * NO, BC O038BA C258 4OU6+ MVB R2 (rips 
goaHig gong coon tear re) * cs ERROR bosees bebe ude yr BYRgr nS 
+XIOCO TBTS (R4,CSA TURN ON CS STATS A 
003816 5601 3933+ BXS R6, 2) GO TO USER pee eae eee 0038C0 7921 002C HOUS+ AWI 44,R1 
903814 1000 3935+. GOFF «tOCE oo ee ee ee 0038C6 4020 1802 FIFO «40818 eile pina eicweenes 
+ * NO, EXIT THIS ROU 
a es esate 3336+ ; ne PEEL a Ca TU 
+ MVB IOIN+1,R5 GET LAST INTR CC COD : 
003820 F502 3938+ CBI R5 IS THIS cCC=2 se 0038D8 402c 19C4 0080 4O54+ OWL BITO0080,SUPSTAT 
003822 1003 3939+ JE 24R2, YES 0038DE 4324 34cCc 4055+ MVA $TUID,R3 SET UP BUFFER STORAGE 
003824 F506 3940+ CBI 6,R5 IS THIS CC=6 0038E2 6F13 18BA 4056+ BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER 
003826 68D1 0000 3941+ BNE R6 * * NO, BCH TO ERROR HANDLER 4OS7+* 
00382A C520 34D0 3942+XIOCQ MVB IS GET faAST ISB DATA BYTE AND IF CS 003856 4058+$CONX EQU * 
00382EF 6A00 373C 3943+ BN XIoc ar * AVAILABLE, GO AND GET IT 0038E6 C720 19D0 4059+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
003832 68D2 0000 390444 B R6 : ERROR 0038EFA 6013 4060+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
003836 CB25 34CA 3945+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS O0038EC 6812 350E 4OG1+ B TURTN* RETURN TO MDI SUPERVISOR 
00383A 5601 3946+ BXS  (R6,2$ RETURN TO USER VIA REG 6 4O62+% 
3947+%* 0038F0 0009 4063+BEGIN DC eter NUMBER OF LINES TO PRINT 
3948+ 1/0 PARAMETER LIST 0038F2 0008 4YO64+t DC A (0008 LINE LENGTH = 8 CHAR 
20383¢ 1909 3383tonn G338Fe ggggtcctc2nenses unseen : 
+ K DC A (DEVADD ADRS OF DEVICE ADRS : LINE LENGTH = 40 CHAR 
00383E 37A0 3951+ DC A XIOER) ERROR ROUTINE ADRS OO38FE E3E4C9CK4OCODECID 4067+ DC C*TUID IOIN ISB INST SECT ID DATA cscc t 
003840 0000 3952+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 003926 0028 4068+ DC A (0040) LINE LENGTH = 40 CHAR 
0 42 0000 3953+IOMOD DC A (*-* MODIFIER 003928 4O404O40404040K04 40694+LINET DC ct 
OOsa4e ooo0 Sect TOnEE oe | eee SUEGND GES Oo aces O0398> CIDSESD340CHC3C2F OTIS DE ss GNCNTT’ DCB1_DCB2 DCB3 BEBE LENGTH = 80, CHAR 
+ - SECOND WORD OF LAS S 
ages van nose Oeenignoueadcidy) aero mene. oe eee 
+ INTERRUPT CONTROL BLOCK FOR I/O COM S »s 
3959+ / nent 0039A4 0028 4O744 DG K (0040) LINE LENGTH = 40 CHAR 
003848 19D0 39594+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 003986 C3E260FO4OC3E260F 4075+ DC C*cS-0O CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
00384A 37D0 3960+ DC A (INTOK INTERRUPT OK RETURN ADRS 0039CE 0028 4076+ DC A (0040) LINE LENGTH = 40 CHAR 
00384C 37AC 3961+ DC A {INTER INTERRUPT ERROR ADRS 0039D0 4YOXO4O4O404040404 FOTT+LINE3 DC c* : 
00384E 0003 3962+INTCC DC X ' INTERRUPT CODE EXPECTED 0039F8 0028 4O78+ DC A (0040) LINE LENGTH = 40 CHAR 
39 GY + a EE RO IR IO I I I OR AO OK OK 11 MAY 7 6% OO39FA C3E260F840C3E260F 4079+ DC C*CS=9 CS-9: CS-A. CS=B ‘CS-C : 
3965+* 003A22 0028 4080+ DC A (0040) LINE LENGTH = 40 CHAR 
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LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~ REFERENCE LISTING COPYRIGHT IBM CORP 1976 
003A24 4O404040404040404 4O814LINEY DC ct ' DECLARED NAME ATTRIBUTES AND REFERENCES 
4082+* 
003A4C 0000 4083+BUFPT DC A ) 3989 $CONC ADDRESS. HEX LOCATION (00003850) IN CSECT(I7A23  ) LENGTH(2) 
OO3A4E 38F0 4O84+DC2PT DC A {BEG N) 4135 
003A50 0101 4O85+FIXTUO DC X*0101! 4058 $CONX ADDRESS. HEX LOCATION(000038E6) IN CSECT(I7A23 ) LENGTH(1) 
003A52 0101 4086+ FAKETU Dc x'0101° 4141 
OOF1FO 4O87+PIDMSG10 EQU X'F1FO! 4031 SERRS ADDRESS. HEX LOCATION(00003884) IN CSECT(I7A23  ) LENGTH(6) 
000080 4O88+BIT0080 EQU X*00808 4136 
4089+ * 2695 $INTL ADDRESS. HEX LOCATION (0000350C) IN CSECT(I7A23 ) LENGTH(2) 
+ DATA CONTROL BLOC N NG 
4091+* : TRS ine en gee ne HEX ED) EBEDES 2660 $IOIN ADDRESS. HEX LOCATION (0Q0034CE one CSECT(I7A23. ) LENGTH(2) 
003A54 003A 4Q92+HEBLK DC A(58 NUMBER OF BYTES Vv 
003A56 34cCc 4093+ DC A snbrp) FROM ADRS ae lee 2661 $ISB ADDRESS. HEX LOCATION(000034D0) IN CSECT(I7A23. ) LENGTH(2) 
003A58 181A 4O94+ DC A (TUWORK) AND THE TO ADRS 2995 3761 3901 3942 4001 
4030 ae COPY T7810 23JAN78 2645 $LE ABSOLUTE. HEX VALUE (00000026) 
T7A10 TULT 
Od LE nt tt Scan eaeer Merny ee ane Gt Peet Ree eeeee STEERS ELS SSeS A EME EL SOC EER GY 2659 $TUID Sone EGke hood Wea IN CSECT(1I7A23 ) LENGTH (2) 
098+* 
Hp ees TEST UNIT 3007 $WRT1 ADDRESS. HEX LOCATION(00003708) IN CSECT(I7A23. ) LENGTH(2) 
+% 
ae ERROR HALT CODE/DIAG SENSE BYTE CHECK 102 @DCADD1 wARBRESS.- HEX LOCATION(000019B8) IN CSECT(I7A23  ) LENGTH(1) 
+x 
4103+* PURPOSE 103 @DCADD2 ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7A23 ) LENGTH(1) 
4104+% 
4105+% TO MOVE THE ERROR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 39 OFIXT ABSOLUTE. HEX ee ee ee ea 
4106+% 987 1074 1101 1128 1167 1170 1185 1188 1191 
eo eee yigd 1197 4200 1203 1208 tz2t 1280 1275 28 
4 8+ = 
Ue Mei ek bat sos cces EcomeCCmCeE Mme MRE MEL MTL ELEM 
4 +% a eese@eaes#se32s8@e 
reer ee ey Re EES) Oe See se ee a oe ane 1746 1749 1752 1755 1770 1773 «1788 1791 1806 
4112+* . 16-23 ....ee2e- SINGLE SHOT BYTE 1 (5-HURSLEY 1821 1824 1851 1890 1929 1932 1935 1938 1941 
4113+* - 24-31 ..eeeee- SINGLE SHOT BYTE 2 (6-HURSLEY 1944 2007 2010 2013 2052 2055 2058 2085 2088 
4114+ “ 32-39 ceccceee SINGLE SHOT BYTE 3 (7-HURSLEY 2091 2118 2157 2160 2163 2166 2169 2196 2199 
4115+% . 48-55 ........ NOT USED 2202 2217 2220 2271 2286 2301 2328 2331 2334 
g1i6)* : 56-63 ......-- MULTISAMPLE BYTE 1 (5-HURSLEY Saat ret Stan 2382 2421 2424 2427 2454 2457 
4117+% 64-71 2.002. MULTISAMPLE BYTE 2 (6-HURSLEY 
4118+%* ‘ 72-79 weseweee MULTISAMPLE BYTE 3 te-Hunsrey| 4 @GOTO ABSOLUTE, HEX VALUE (00000200) 
4119+4+% : 80-87 ....+..- WRAP BYTE 957 2493 
iSite a2 aoe she. 963 FE 7 640. 1002 1014 1026 1038 1050 
4121+%* C NG 
Meee ag runes $962 1977 1989 1108 116 High Hus 3388 173 
4123+ MVW TUWORK, TURESUL MOVE ERROR HALT CODE §& STATUS BYTES 
4124+ MVD TUWORK46,TURESUL+2 SINGLE SHOT BYTES 1, 2, AND 3 1347) 1359 1377) «#1392 1410 1422 1437 1455 1467 
4125+ MVD TUWORK+16,TURESUL+6 MULTISAMPLE BYTES 1, 2° AND 3 1485 1497 1509 1524 1542 1557 1575 1593 1605 
4126+* AND WRAP BYTE 1617 1629 1641 1653 1665 1677 1689 1701 1719 
4127+* RETURN CONTROL 1734 1758 1776 1794 1809 1827 1839 1854 1866 
aigere 2016 2038 2040 2061 2073 2094 2106 2121 2133 
% * 
449008 gees BESUEE SOP NDE SOPERVESOE 2145 2172 2184 2205 2223 2235 2247 2259 2274 
003A5 6 FO 350 Die rg ce ne ae re eo ere nr ee eee eens 2283 aen3 ae £331 2352 2367 2385 2397 2u09 
ASA 6FOD E +T7A10 MVW R7,TURTN SAVE RETURN ADDRESS 
aoatee eon ee 7A10 yon aver Xe7RIO8 / STUID SANE oe eo ynee DISPLAY i 4063 BEGIN PT ae HEX LOCATION (OO0038FO) IN CSECT(I7A23 ) LENGTH (2) 
+ I DRS 
bb3kee S8ga 225° izes. Be’ RGSEGRES GREE Ronson tuvaleo cage? 17° eo ee 
Bees. Gaaaian oes 4137 +# ( ) 4083 BUFPT pABBRESS. HEX LOCATION (OO003A4C) IN CSECT(I7A23  ) LENGTH(2) 
3A6E 181C 18D 44 MVD TUWORK+2,TURESUL+10 MOVE ERROR WORDS 4,5 
003A74 8028 1827 18CD #133 MVB TUWORK+13,TURESUL+5 MOVE WRAP CHECK RESULTS 2649 CE Bp aeee Se ae ee a 
OO3A7A 6802 38E6 4141+ B SCONX RETURN TO MDI CONTROLLER 3046 CICB ABSOLUTE. HEX VALUE (00000014) 
470 2+ Ok OIC IG IG IO CG IC IIA ICI IG I OK icici ak ak ak 3995 
000000 4144 END 2730 CLDCB ADDRESS. HEX LOCATION (00003528) IN CSECT(I7A23  ) LENGTH(2) 
2647 cs ABSOLUTE. HEX VALUE (00000028) 
3746 3749 3857 3898 3927 
2648 CSA ABSOLUTE. HEX VALUE (00000029) 
2678 CSBUF ADDRESS. HEX, LOCATION (000034EC) IN CSECT(I7A23. ) LENGTH(1) 
2768 CSDCB ADDRESS. HEX LOCATION(0000356E) IN CSECT(I7A23  ) LENGTH (2) 
2668 DCBUF ADDRESS, HEX LOCATION(000034DC) IN CSECT(I7A23. ) LENGTH(1) 
4084 DC2PT pARBRESS. HEX LOCATION (OOOO3A4E) IN CSECT(I7A23. ) LENGTH(2) 
105 DEVADD ADDRESS. HEX LOCATION(000019D0) IN CSECT(I7A23  ) LENGTH(1) 
2698 3950 3959 405 
2663 DEV1 ADDRESS. HEX LOCATION (000034D4) IN CSECT(I7A23. ) LENGTH(2) 
2666 DEV4 ADDRESS. HEX LOCATION (OO00034DA) IN CSECT(I7A23  ) LENGTH (2) 
2719 DGDCB ADDRESS. HEX LOCATION (0000351E) IN CSECT(I7A23  ) LENGTH(2) 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) 
2499 ENTPT ADDRESS. HEX LOCATION (000033A4) IN CSECT(I7A23  ) LENGTH(1) 
2640 ER ABSOLUTE. HEX VALUE (00000021) 
2997 3763 3784 3867 3909 3934 
3032 EXIT ABSOLUTE. HEX VALUE (00000006) 
4086 FAKETU pABDRESS. HEX LOCATION (00003A52) IN CSECT(I7A23. ) LENGTH(2) 
2534 F00018 ADDRESS. HEX _LOCATION(000033DC) IN CSECT(I7A23. ) LENGTH(1) 
1204 1333 1375 1450 1537 
2530 F00034 ADDRESS. HEX LOCATION (000033CE) IN CSECT (I7A23 LENGTH (1) 
1129 1168 1189 1198 1201 1219 1336 (1339 1342 
1390 1540 1789 1945 2302 2332 2365 2380 2425 
2546 FO00046 pADBRESS.. HEX LOCATION (0000341A) IN CSECT(I7A23. ) LENGTH(1) 
2574 F00048 ADDRESS. HEX LOCATION(00003470) IN CSECT(I7A23  ) LENGTH(1) 
1573. 1771 2350 2455 2485 2491 
2542 F00053 ADDRESS. HEX LOCATION (0000340C) IN CSECT(I7A23  ) LENGTH(1) 
1276 1345 1714 1750 1774 
2518 F00075 ADDRESS. HEX LOCATION(000033AA) IN CSECT(I7A23 ) LENGTH (1) 
2598 F00077 a ADDRESS. HEX LOCATION(000034BA) IN CSECT(I7A23  ) LENGTH(1) 
2578 F00078 ADDRESS. HEX LOCATION (0000347E) IN CSECT(I7A23  ) LENGTH(1) 
2566 F00080 jABBRESS.. HEX LOCATION (00003458) IN CSECT(I7A23  ) LENGTH(1) 











I7A23 --- 


DECLARED 
2522 
2594 
2558 
2550 
2582 
2562 
2586 
2590 
2570 
2538 
2526 


2554 


4092 
3052 
3028 
2860 
2642 
39595 
3854 
3863 
3867 
3894 
3916 
3897 
3902 
3910 
3950 
3952 


5953 
37 
4069 
2662 
2639 
4043 
2651 
2646 
945 
957 
963 
975 
987 
990 
1002 
1014 
1026 
1038 
1050 
1062 
1074 
1077 
1089 
1101 
1104 
1116 


FRU ISOLATION MAP 


NAME 

FO00081 
F00083 
FO00085 
F00086 
F00087 
F00088 
F00089 
F00090 
FO00091 
FO0092 
F00093 


FO00094 


HEBLK 
HTOE 
IDLE 
IDOO 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
I7A23 
LINE1 
LSTIO 
MI 
MVBUF 
NG 

NI 
N00001 
n00002 
N00003 
NOO0004 
N00005 
N00006 
NO00007 
NO00008 
n00009 
N00010 
NOO0011 
N00012 
N00013 
N00014 
NO0015 
N00016 
N00017 
N00018 


ADDRESS. 
988 
ADDRESS. 


2287 2329 
HEX 
91 


ADDRESS. 
1372 
ADDRESS. 
2059 
ADDRESS. 
435 2 
DDRESS. 


DRESS. 


NN NO = 
~] 
maw Ww 
em ti 
159] 
Nn 
WME O* 


- 2s Aas = eS 
os) =) 
tJ te 
CD) en ed OAD wed ed OND UD ot 
NOWNIH a) ON VI 
8 Woe 


OLUTE. 


p= 


W N N 
oe) 
td 


oe) 


RESS. 


Ww WwW 


WW iJ 
COD WO OD OO CO Om ORO OP ~~) OPTrOoOMmol ry OUlOrPNr SPN ray 


UNO Se ee ae en eee WOUINIO NOW 
ty 


J 


9 
D 
1 
D 
8 
D 
2 
D 
7 
5 
8 
D 
0 
3 
D 
3 
B 
3 
B 
7 
D 
mM 
B 
9 
D 
9 
D 
6 
D 
5 
D 
6 
D 
6 
D 
1 
D 
6 
D 


ive) 
© 
oO 
No) 


ADDRESS. 
3907 


ADDRESS. 
040 
ADDRESS. 
2986 
sg00 
DRESS. 
7 405 
OLUTE. 
OLUTE. 
RESS. 
250 
RESS. 
RESS. 
94 
RESS. 
RESS. 


RESS. 
* 


4 
3 
3 


=) 
ia] 
wn 
No 
Py 


=e) 
ty 
Nn 
oP) 
e 


RESS. 


S 
S 
0 
D 
5 
D 
8 
D 
1 
D 
m1 
D 
7 
D 
0 
D 
3 
DRESS. 
6 
D 
9 
D 
2 
D 
5 
D 
8 
D 
1 
D 
u 
D 
7 
DRESS. 


DINING SOLU SVUWOWSOWUWONONYUNY 2020 +0=0 om 


GS Ga G0 Be GU Be Gb Ge Ga Ge a a We a We SI Oe ORO 
o 


Wp 

nO 

wo 
os) 
is} 
169] 
nn 
e 


ADDRESS. 


cof ~J¢ 
n © 


NAO adsjN 


0 
9 
4 


3751 


RESS. 
1063 


HEX 
HEX 
2 


HEX 
HEX 
HEX 
HEX 
HEX 


P /N= 





CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 


LOCATION (000033B6) 
akQCATION (0000345) 
LOCATION (00003440) 
LOCATION (00003428) 
LOCATION (00003488) 
LOCATION (0000344 C) 
LOCATION (00003496) 
LOCATION (00003482) 


EX LOCATION (00003464) 
85 205 S 


HE 
HE 
HEX 


1 
HEX 
2 


LOCATION (0 


DO mA ND tee 
wed NRK 00 at et 
=—™WOTINOOKN 
WRIBNIVUIONZ AD 
~m o~ 
© oS 
NOON eB @ ONOR) 
OCOmJORUOamBOLOW 


8 

03 
28 
03 
92 
30 
58 
03 
56 
61 
03 


CATION (00003A5 

X VALUE (00000014) 

X VALUE (00000002) 
LOCATION (00003608) 


HEX ee et 
3776 3897 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 


LOCATION (00003848) 
LOCATION (000037AC) 
LOCATION (000037C4) 
LOCATION (000037CC) 
LOCATION (000037D0) 
LOCATION (00003800) 
LOCATION (0000378) 
LOCATION (000037E6) 
LOCATION (000037F4) 


3 
10 30713 3747 37 
LOCATION (00003842) 
33 o3ed2, 3248 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
Rh 
22 
IN 


HEX LOCATION (00003928) IN 


HEX 
ub 
HE 


HEX 
0 


HE 

HE 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


pgQCATION (00003402) 

X VALUE (00000020) 
LOCATION (000038B4) 

X VALUE (0000002C) 

X VALUE (00000027) 
LOCATION (00002840) 
LOCATION (00002852) 
LOCATION (0000285E) 
LOCATION (00002870) 
LOCATION (00002888) 
LOCATION (0000288C) 
LOCATION (000028A6) 
LOCATION (000028C0) 
LOCATION (000028D8) 
LOCATION (000028F0) 
LOCATION (00002908) 
LOCATION (00002920) 
LOCATION (00002938) 
LOCATION (0000293C) 
LOCATION (00002954) 
LOCATION (0000296C) 
LOCATION (00002970) 
LOCATION (00002988) 


IN 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 





PAGE 17 


COPYRIGHT IBM CORP 1976 


. Co) a, | 
8327662 EC=375222 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23._) LENGTH(1) 
CSECT(I7A23._) ~LENGTH(1) 
CSECT(ITAZ3 ||) LENGTH (1) 
1842 2011 2056 
cL ae Godel 
€SECT(I7A23) LENGTH (2) 
CSECT(I7A23. ) LENGTH (2) 
CSECT(I7A23. ) LENGTH(2) 
CSECT(I7A23. ) LENGTH(2) 
CSECT(I7A23. ) LENGTH (2) 
CSECT(I7A23. ) LENGTH(2) 
CSECT(I7A23. ) LENGTH(2) 
CSECT(I7A23. ) LENGTH(2) 
CSECT(I7A23. ) LENGTH(2) 
CSECT(I7A23. ) LENGTH(1) 
CSECT(I7A23.) LENGTH(2) 
CSECT(I7A23. ) LENGTH(2) 
SECT (GIT? oh, SmmORC 
CSECT(I7A23-) LENGTH(2) 


002500) LENGTH(5502) ESDID (1) 


CSECT (I7A23 
CSECT(I7A23 


CSECT (I7A23 


CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 


feet eee eee Se 


LENGTH (40) 
LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 





LJAZS === 


DECLARED 


1128 
1131 
1143 
1155 
1167 
1170 
1173 
1185 
1188 
1191 
1194 
1197 
1200 
1203 
1206 
1218 
1221 
1224 
1236 
1248 
1260 
1263 
1275 
1278 
1281 
1284 
1296 
1308 
1320 
1332 
1335 
1338 
1341 
1344 
1347 
1359 
1371 
1374 
1377 
1389 
1392 
1404 
1407 
1410 
1422 
1434 
1437 
1449 
1452 
1455 
1467 
1479 
1482 
1485 
1497 


FRU ISOLATION MAP 


NAME 


N00019 
N00020 
N00021 
N00022 
N00023 
N00024 
NO00025 
N00026 
N00027 
N00028 
N00029 
N00030 
N00031 
N00032 
N00033 
NO00034 
N00035 
NO00036 
N00037 
N00038 
N00039 
NOO0040 
NOO041 
NOOO42 
NO0043 
NOOO44 
NOO045 
NOOO46 
NOO0047 
NOO048 
NOO0O049 
NO0050 
N00051 
NO00052 
N00053 
NOO054 
N00055 
N00056 
N00057 
N00058 
NO00059 
N00060 
N00061 
NO00062 
N00063 
NOO064 
NO0065 
NO0066 
NO00067 
NO00068 
NO0069 
N00070 
N00071 
N00072 
N00073 


ATTRIBUTES 
366 
ADDRESS. 
369 

ADDRESS. 

72 = =111 

ADDRESS. 


375 
RESS. 
RESS. 


GJ 


mw wy Dwmwmo wm DD 

tf ty SB we & & 
Wwe me of we aye ¢ oe wie 
O Mm NY £ fon) 


yw oO 
ie] ix | 
—YN() NetNames U1) 


OWNU NONONOCNOCN NAN NAN 
~je 


ee) 
ty 
* ne 


PY lYPl YS Re Sw Se Wr We We We 
td 
ta 


Oa and smIOUOVUOCOUDUNDWUDUYV OVOVOUVSS 
ONO SO aU DOINNONYVOORHDOIWHOONO LO =000 
pe) 
ty 


0) 
(6) 


+ 
No 
(a>) 
© wa S oe« 


ADDRESS 
423 
ADDRESS. 
426 
ADDRESS. 
429 


Perr 

OWOWO 

UUMNOnYo 

mm Ww 

tH td tf 

nN 

op) 

wwe ons 6 ge 
~~ £& 


=o) 
ty 
MONMNNMNNNY NN 


wm fy =e) 

YY tS ty 

NN WYNN Yee 
- * poe 


RESS. 
ESS. 


Dmmw Ww 
fd t& ty 
CT md UY) ot ON UY) 
NONNMNNNWMNWWM 
oe or NQ¢ 
WO _ 


‘oe 


ao ww 
fh td ty 
coe 


RESS. 
RESS 


ee 

ty 
= ov 
oOo © 


om 
td ty 
MeN Nem WYNwANe 
WONWN ie oe MW 
e 


We 


mw wW 
B&H & 
Nn 
YN 
Py we 


=e] 
ie] 
wn 
n 
‘ 


wm Ww 
fd 


RESS. 


wy 

te 
NaN 
NeneN 


RE 


Ne On OD OS Ol UL On Ol OI OI Ole op ep Se oe opera Sp lrer spre Serer flrepirlerereps 
WONUNOND 30 20 aD ANDOU OV OU OD ON UU OV OVOYUODYONSNO NOI HOI HDOUOMNOMNOWNO SOLO LOW 
AOIDOOIUNONYOOIDYWHOUSNO SU RD ODDUDNDUDDNOWYOD NOD FU aI ODOUONYVOSHUWHOO NO SU 
=e) 
ty 


= 


— © 


~ 


mn ~ 


~ Wt ve) 


UT 


Ww 
as 
td fs 
| 


© 





AND 


HEX 


HEX 
7 


HEX 
HEX 
HEX 


coe om am ee ee ae Se ee 
ic 7 > 2 > 2 > > > 3 o> | 
oo | 


HEX 
HEX 
HEX 
HEX 
HEX 


=™ 
ty Oo 
a a) 


HEX 
HEX 
HEX 
HEX 


o 
iz} 
Fae 


aw. 


P/N= 


8327662 


CROSS- REFERENCE LISTING 


REFERENCES 


LOCATION (000029A2) 
LOCATION (000029A6) 
LOCATION (000029BE) 
LOCATION (000029D6) 
LOCATION (000029EE) 
LOCATION (000029F2) 
LOCATION (000029F6) 
LOCATION (00002A0E) 
LOCATION (00002A 12) 
LOCATION (00002416) 
LOCATION (00002A1A) 
LOCATION (00002A1E) 
LOCATION (00002A22) 
LOCATION (00002426) 
LOCATION (00002A2A) 
LOCATION (00002A42) 
LOCATION (00002A46) 
LOCATION (00002A4A) 
LOCATION (00002A62) 
LOCATION (00002A7A) 
LOCATION (00002492) 
LOCATION (00002496) 
LOCATION (O0002AAE) 
LOCATION (00002AB2) 
LOCATION (00002AB6) 
LOCATION (00002ABA) 
LOCATION (00002AD2) 
LOCATION (00002A EC) 
LOCATION (00002806) 
LOCATION (00002B1E) 
LOCATION (00002B22) 
LOCATION (00002826) 
LOCATION (00002B2A) 
LOCATION (00002B2E) 
LOCATION (00002832) 
LOCATION (00002B4A) 
LOCATION (00002862) 
LOCATION (000028366) 
LOCATION (00002B6A) 
LOCATION (00002882) 
LOCATION (00002B86) 
LOCATION (00002B9E) 
LOCATION (00002BA2) 
LOCATION (00002BA6) 
LOCATION (00002BBE) 
LOCATION (00002BD6) 
LOCATION (00002BDA) 
LOCATION (00002BF2) 
LOCATION (00002BF6) 
LOCATION (00002BFA) 
LOCATION (00002C14) 
LOCATION (00002C2C) 
LOCATION (00002C30) 
LOCATION (00002C34) 
LOCATION (00002C52) 


IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IW 
IN 
IW 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IW 
IN 
IN 
IN 


CSECT (I7A23 
CSECT(I7A23 
CSECT(I7A23 
CSECT (1I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(1I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
C SECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT(I7A23 
CSECT (I7A23 
CSECT (I7A23 
CSECT (I7A23 


cs ie ty a 


cee eee eee lee eee eee 


EC=375222 





oy, 


PAGE 17A 


COPYRIGHT IBM CORP 1976 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LTA2 3: -—== 


DECLARED 
1509 
1521 
1524 
15 36 
1539 
1542 
1554 
1557 
1569 
1572 
1575 
1587 
1590 
1593 
1605 
1617 
1629 
1641 
1653 
1665 
1677 
1689 
1701 
1713 
1716 
1719 
1731 
1734 
1746 
1749 
1752 
1755 
1758 
1770 
1773 
1776 
1788 
1791 
1794 
1806 
1809 
1821 
1824 
1827 
1839 
1851 
1854 
1866 
1878 
1890 
1893 
1905 
1917 
1929 
1932 
1935 





FRU ISOLATION MAP 


NAME 

NOO0074 
NO00075 
N00076 
N00077 
N00078 
N00079 
N00080 
N00081 
N00082 
N00083 
NOOO084 
NO00085 
N00086 
N00087 
Nd0088 
NOO0089 
N00090 
N00091 
NOOO092 
NO00093 
NOO0O94 
NO0095 
NO00096 
N00097 
nN00098 
NO0099 
N00100 
NO00101 
N00102 
N00 103 
NOO 104 
NO00105 
N00 106 
N00107 
N00108 
N00109 
N00110 
N00111 
NO00112 
NO0113 
NO00114 
N00115 
N00116 
NO0117 
N00118 
N00119 
N00 120 
NO0121 
N00 122 
N00123 
NO0124 
N00125 
N00 126 
N00127 
N00128 
N00129 


ATTRIBUTES AND 


ADDRESS. HEX 
534 
ADDRESS. HEX 
537 


po 
oO 
o 
= 9) 
ty 
nn 
Nn 
© at 
=) 
m 
td 
>< 


= 0] 
ta 
=< 
aww & 
~~ PS OOO 


mw tw hd 
td te ty 
M1 Nema Ne YN Ne U-s 
© O* Ne 
oOo wm 
js 01 jae} 


ONUIN NEMNUMN NOM NEHWNUM MW 
e 
=m oS 
ta 
>s 


mm wm 
hott tf i 
‘or un = 
OO © w 
en a 
td 
> d 


NO SU aS DOUDNNWOO NYS 
™m 
ty 
>< 


ON 1 Ole Ole U1 O14! Ul py Uline 
NOIHNDOIAGNOINYINO SOLO 


= ie 
soso 
WOow 
mw hy 
ty ty 
Nn 
~J® 
fon) 


RESS. HEX 
RESS. HEX 
RESS. HEX 
1879 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
1918 
RESS. HEX 


P/N= 
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CROSS~REFERENCE LISTING 


REFERENCES 
LOCATION (00002C6A) 
LOCATION (00002C82) 
LOCATION (00002C86) 
LOCATION (00002C9E) 
LOCATION (00002CA2) 
LOCATION (00002CA6) 
LOCATION (00002CBE) 
LOCATION (00002CC2) 
LOCATION (00002CDC) 
LOCATION (00002CE0) 
LOCATION (00002CE4) 
LOCATION (00002CFC) 
LOCATION (00002D00) 
LOCATION (00002D04) 
LOCATION (00002D1E) 
LOCATION (00002D36) 
LOCATION (00002D50) 
LOCATION (00002D6a) 
LOCATION (00002D82) 
LOCATION (00002D9A) 
LOCATION (00002DB2) 
LOCATION (00002DCA) 
LOCATION (00002DE2) 
LOCATION (00002DFA) 
LOCATION (00002DFE) 
LOCATION (00002502) 
LOCATION (00002E1A) 
LOCATION (00002E1E) 
LOCATION (00002E36) 
LOCATION (00002E3A) 
LOCATION (00002E3E) 
LOCATION (00002E42) 
LOCATION (00002E46) 
LOCATION (00002E5E) 
LOCATION (00002E62) 
LOCATION (00002E66) 
LOCATION (00002E7C) 
LOCATION (00002E80) 
LOCATION (00002E84) 
LOCATION (00002E9C) 
LOCATION (00002EA0) 
LOCATION (00002EBA) 
LOCATION (00002EBE) 
LOCATION (00002EC2) 
LOCATION (00002EDA) 
LOCATION (00002EF4) 
LOCATION (00002EF8) 
LOCATION (00002F10) 
LOCATION (00002F28) 
LOCATION (00002F40) 
LOCATION (00002F44) 
LOCATION (00002F5C) 
LOCATION (00002F74) 
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LOCATION (00002F90) 
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I7A23 --- FRU ISOLATION MAP P/N=8327662 EC=375222 PAGE 19 I7A23 -~- FRU ISOLATION MAP P/N=8327662 EC=375222 PAGE 19A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
2331 NO00185 ADDRESS. HEX LOCATION(Q000327C) IN CSECT(I7A23 ) LENGTH (2) 3993 4001 4038 4039 4043 4055 
867 2248 0 R4Y REGISTER. HEX ee ad 
2349 N00 186 ADDRESS. HEX LOCATION(0000328E) IN CSECT(I7A23 ) LENGTH (2) 2996 2997 2998 3745 3746 3749 3763 3764 3766 ' 
870 3767 3770 3776 3784 3856 3857 3859 3863 3867 
2352 N00187 ADDRESS. HEX LOCATION (00003292) IN CSECT(I7A23 ) LENGTH (2) 3896 3897 3898 3908 3909 3910 3912 3915 3925 
873 2338 3927 3929 3932 3934 4134 
2364 N00188 ADDRESS. HEX LOCATION(OOOO32AA) IN CSECT(I7A23 ) LENGTH (2) 0 R5 REGISTER. HEX N oehs ona 
2367 wootaa RS 000032 1123 : 3831 3888 3359 339% 3943 3932 3885 3957 3988 
N ADDRESS. HEX LOCATION AE) IN CSECT(I7A2 LENGTH 
879 2353 ( ( ‘) 3757 3759 3775 3782 3904 3905 3906 3937 3938 
2379 N00190 ADDRESS. HEX LOCATION(000032C6) IN CSECT(I7A23 ) LENGTH (2) 3940 3942 3991 3992 4037 4050 
882 0 R6 REGISTER. HEX ee ae 
2382 N00191 ADDRESS. HEX LOCATION(000032CA) IN CSECT(I7A23 ) LENGTH (2) 2889 2890 2986 3751 3771 3785 3821 3926 3931 
885 2368 3933 3941 3944 3946 3996 4002 4004 4042 4047 
2385 N00192 ADDRESS. HEX LOCATION (OO0032CE) IN CSECT(I7A23 ) LENGTH (2) 4048 4135 
888 2236 0 R7 REGISTER. HEX ee haa ae 
2397 N00193 ADDRESS. HEX LOCATION (000032E6) IN CSECT(I7A23 ) LENGTH (2) 2706 2885 2942 2948 2956 2970 2989 2992 2999 
891 3014 3754 3758 3765 3860 3901 3989 3994 3999 
2409 NO00194 ADDRESS. HEX LOCATION (QOOOO32FE) IN CSECT(I7A23 ) LENGTH (2) 4032 4041 4O44 4056 4059 4132 
894 2667 SCTID ADDRESS. HEX een a cone ab IN CSECT(I7A23 ) LENGTH (2) 
2421 NO00195 ADDRESS. HEX LOCATION(00003316) IN CSECT(I7A23 ) LENGTH (2) 2753 2830 2886 2941 2944 2969 2972 
897 2757 SKDCB ADDRESS. HEX LOCATION(0000355E) IN CSECT(I7A23 ) LENGTH (2) 
2424 N00 196 ADDRESS. HEX LOCATION(O0000331A) IN CSECT(I7A23 ) LENGTH (2) 2933 
900 2410 3036 START ABSOLUTE. HEX VALUE (OQOOOO00OA) 
2427 NO00197 ADDRESS. HEX LOCATION (OOOO331E) IN CSECT(I7A23 ) LENGTH (2) 3768 
903 2398 104 SUPSTAT ADDRESS. HEX LOCATION (000019C4) IN CSECT(I7A23 ) LENGTH (1) 
2430 N00198 ADDRESS. HEX LOCATION (00003322) IN CSECT(1I7A23 ) LENGTH (2) 4054 
906 2386 92 TUMSGHTR ADDRESS. HEX LOCATION(000018BA) IN CSECT(I7A23 ) LENGTH (1) 
2442 N00199 ADDRESS. HEX LOCATION (0000333A) IN CSECT(I7A23 ) LENGTH (2) 4056 
909 98 TURESUL ADDRESS. HEX LOCATION (000018C8) IN CSECT(I7A23 ) LENGTH (1) 
2454 N00200 ADDRESS. HEX LOCATION (00003352) IN CSECT(I7A23 ) LENGTH (2) 4138 4139 
912 26 96 TURTN ADDRESS. HEX LOCATION (OO00350E) IN CSECT(I7A23 ) LENGTH (2) 
2457 N00201 ADDRESS. HEX LOCATION (00003356) IN CSECT(I7A23 ) LENGTH (2) GO61 4132 
915 2443 74 TUSTATUS ADDRESS. HEX LOCATION (00001818) IN CSECT (I7A23 ) LENGTH (1) 
2460 NO00202 ADDRESS. HEX LOCATION (0000335A) IN CSECT(I7A23 ) LENGTH (2) 4031 
918 2431 75 TUW ORK ADDRESS. HEX LOCATION (0000181A) IN CSECT(I7A23 ) LENGTH (1) 
2472 N00203 ADDRESS. HEX LOCATION (00003372) IN CSECT(I7A23 ) LENGTH (2) 4034 4035 4036 4038 4094 4138 4139 
921 2705 T7A02 ADDRESS. HEX BOCA an On aoae ob IN CSECT(I7A23 ) LENGTH (6) 
2484 NOO0204 ADDRESS. HEX LOCATION (0000338A) IN CSECT(I7A23 ) LENGTH (2) 965 977 992 1004 1016 1028 1040 1052 1064 
924 1079 1091 1106 1118 1133 1145 1157 #1175 «41208 
2487 NO00205 ADDRESS. HEX LOCATION (O000338E) IN CSECT(I7A23 ) LENGTH (2) 1226 1238 1250 1265 1286 1298 1310 1322 1349 
927 2473 1361 1379 1394 1472 1424 1439 1457 1469 1487 
2490 NO00206 ADDRESS. HEX LOCATION (00003392) IN CSECT(1I7A23 ) LENGTH (2) 1499 1511 1526 1544 1559 1577 1595 1607 1619 
930 2461 1631 1643 1655 1667 1679 1691 1703 1721 £41736 
2493 NO00207 ADDRESS. HEX LOCATION (00003396) IN CSECT(I7A23 ) LENGTH (2) 1760 1778 1796 1811 1829 1841 1856 1868 1880 
: 933 2224 1895 1907 1919 1949 1961 1973 1985 1997 2018 
58 OF ABSOLUTE. HEX yee aoner 2030 2042 2063 2075 2096 2108 2123 2135 2147 
948 966 978 993 1005 1029 1065 1080 1092 2174 2186 2207 2225 2237 2249 2261 2276 2291 
1107 1134 =<11846 1158 1176 1209 1251 1266 1299 2306 2318 2339 2354 2369 2387 2399 2411 2432 
1350 1362 1380 1395 1413 17425 1440 1458 1470 2444 2462 2474 
1488 1500 1512 1527 1560 1578 1596 1608 1632 4132 T7A10 ADDRESS. HEX LOCATION (OO003A5A) IN CSECT(I7A23 ) LENGTH (4) 
1644 1656 1668 1692 1704 1722 1761 #1779 «241797 947 
1812 1830 1842 1857 1869 1908 1950 1974 2109 2790 VRDCB ADDRESS. HEX LOCATION (OO00358E) IN CSECT(I7A23 ) LENGTH (2) 
2124 2136 2148 2175 2187 2208 2238 2250 2262 2961 
2277 2292 2307 2319 2340 2355 2370 2388 2400 : 2812 WKDCB ADDRESS. HEX LOCATION (OOOO35AE) IN CSECT(I7A23 ) LENGTH (2) 
2412 2433 2445 2463 2475 2975 2976 
57 ON ABSOLUTE. HEX Se a 2779 WRDCB ADDRESS. HEX LOCATION (O000357E) IN CSECT(I7A23 ) LENGTH (2) 
1017 104171 1053 11919 1227 41239 1287 «#1311 1323 2964 3010 
1545 1620 1680 1737 1881 1896 1920 1962 1986 3042 WRITO ABSOLUTE. HEX VALUE (00000010) 
1998 2019 2031 2043 2064 2076 2097 2226 3005 
2604 OPTN1 Spee e tee cas IN CSECT(I7A23 ) LENGTH (2) 3043 WRIT1 sone ee HEX VALUE (00000011) 
2627 OPTN3 ADDRESS. HEX LOCATION (O00034CA) IN CSECT(I7A23 ) LENGTH (2) 2851 WRSID ADDRESS. HEX LOCATION (OO0035EC) IN CSECT(I7A23 ) LENGTH (2) 
3945 3993 2742 2819 2887 2976 2980 
101 PARMARA ADDRESS. HEX Cae Coe hy Cee IN CSECT (I7A23 ) LENGTH (1) 2735 HSDCB ADDRESS. HEX LOCATION (0000353E) IN CSECT (1I7A23 ) LENGTH (2) 
955 973 985 1000 1012 1024 1036 1048 1060 ; 2979 2980 
1072 1087 1099 1114 1126 1141 #=1153 #1165 £1183 2643 XE ABSOLUTE. HEX VALUE (00000024) 
1216 1234 1246 1258 1273 1294 1306 1318 1330 3863 3925 
1357 1369 1387 1402 1420 1432 1447 1465 1477 2641 XI ABSOLUTE. HEX VALUE (00000022) 
1495 1507 1519 1534 1552 1567 1585 1603 1615 2998 3767 23910 
1627 1639 1651 1663 1675 1687 1699 1711 £42~1729 3739 XxIO ADDRESS. HEX LOCATION (0000372E) IN CSECT(I7A23 F LENGTH (4) 
1744 1768 1786 1804 1819 1837 1849 1864 1876 2934 2937 2945 2952 2959 2962 2965 2973 2977 
1888 1903 1915 1927 1957 1969 1981 1993 2005 2981 2984 
2026 2038 2050 2071 2083 2104 2116 2131 2143 3925 XIOCK ADDRESS. HEX LOCATION (00003802) IN CSECT (I7A23 ) LENGTH (2) 
2155 2182 2194 2215 2233 2245 2257 2269 2284 3777 
ai Ses £346 ee 2362 2377 2395 2407 2419 3932 XIOCO Po aa HEX LOCATION (00003814) IN CSECT(I7A23 ) LENGTH (2) 
69 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(1I7A23 F LENGTH (1) 3942 XIOCQ ADDRESS. HEX LOCATION (0000382A) IN CSECT(I7A23 ) LENGTH (4) 
71 72 73 74 75 76 77 78 9 3939 
80 81 82 83 84 85 86 87 88 3747 XIOocs ADDRESS. HEX LOCATION (00003740) IN CSECT(I7A23 ) LENGTH (6) 
89 90 91 92 93 94 95 96 97 394 
aoe 4o8 ae ayo 14 125 weed 105 106 3934 XIOCV ADDRESS. HEX LOCATION (00003818) IN CSECT(I7A23 ) LENGTH (2) 
4087 PIDMSG10 whee HEX VALUE (OO00F1FO) 3945 XIOCX sgge HEX LOCATION (00003836) IN CSECT (I7A23 ) LENGTH (4) 
3038 PREP aboo HEX VALUE (0000000C) 3742 XIODG Snag ate LOCATION (00003734) IN CSECT(I7A23 ) LENGTH (6) 
2801 RDDCB ADDRESS. HEX ae re aa eg | IN CSECT(I7A23 ) LENGTH (2) 3818 XIOER ADDRESS. HEX LOCATION (000037A0) IN CSECT(I7A23 ) LENGTH (2) 
2955 2956 2958 30 0714 £23015 3951 
3045 RICB Orit heels HEX VALUE (00000013) 3751 XIO1 Aiea CHTr a LOCATION (00003750) IN CSECT(I7A23 ) LENGTH (4) 
2823 RKDCB sgeo Seto LOCATION (OOOO35BE) IN CSECT(I7A23 ) LENGTH (2) 3764 XIO2 ago ee HEX LOCATION (00003776) IN CSECT (I7A23 ) LENGTH (2) 
2834 RMDCB sa0e HEX LOCATION (O00035CE) IN CSECT(I7A23 ) LENGTH (2) 3776 XIO8 Snpe 280k ue IN CSECT(I7A23 ) LENGTH (2) 
2857 RSBA ADDRESS. HEX Sa seen sues oF IN CSECT(1I7A23 ) LENGTH (2) 62 XTRNL ABSOLUTE. HEX VALUE (0000000 1) 
Sane 2739 2750 2761 2783 2794 2805 2816 2827 961 2497 
2746 RSDCB ADDRESS. HEX LOCATION (O000354E) IN CSECT(I7A23 ) LENGTH (2) 
2939 2944 FOI lig kkk a tetok dk cok ok dokoktckee LAST PAGE Ro RR kk i ikki tok ak dak kok ik ook ie oka cake ek 
0 RO REGISTER. HEX VALUE (00000000) 
3000 3002 300 
0 R1 REGISTER. HEX ee oat 
4O4O 4043 4O46 4049 
0 R2 REGISTER. HEX VALUE (00000002) 
4GO45 4046 
0 R3 REGISTER. HEX OE eo oe a.) 
2886 2888 2940 2943 2950 2951 2954 2957 2968 
2971 2987 2990 2993 2995 3016 3017 3739 3752 
3755 3756 3759 3761 3818 3819 3820 3854 3855 
3861 3865 3894 3895 3900 3913 3945 3990 3992 


